home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / Prog / Djgpp / GPC2952B.ZIP / doc / gpc / docdemos / bpabsolutedemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-02-09  |  604 b   |  32 lines
  1. program BPAbsoluteDemo;
  2.  
  3. type
  4.   TString = String (80);
  5.   TTypeChoice = (t_Integer, t_Char, t_String);
  6.  
  7. (* WARNING: BAD STYLE! *)
  8. procedure ReadVar (var x : Void; TypeChoice : TTypeChoice);
  9. var
  10.   xInt : Integer absolute x;
  11.   xChar : Char absolute x;
  12.   xStr : TString absolute x;
  13. begin
  14.   case TypeChoice of
  15.     t_Integer : ReadLn (xInt);
  16.     t_Char    : ReadLn (xChar);
  17.     t_String  : ReadLn (xStr);
  18.   end
  19. end;
  20.  
  21. var
  22.   i : Integer;
  23.   c : Char;
  24.   s : TString;
  25.  
  26. begin
  27.   ReadVar (i, t_Integer);
  28.   ReadVar (c, t_Char);
  29.   ReadVar (s, t_String);
  30.   WriteLn (i, ' ', c, ' ', s)
  31. end.
  32.